setdisplay(320,240,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
while 0=0
   x=rnd(320):y=rnd(240)
   dot(x,y)
   if key(27)<>0 then:end:end if
   waitvbl
 wend